Option Explicit
Sub A_Sample033()
    'LWxsd
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1")		'Nxs
    myRng1.Formula = "=Sheet2!D1"		'N
    'ǳƨ즹
    Set myRng2 = Application.Evaluate(myRng1.Formula)
    MsgBox myRng2.Parent.Name & "!" & myRng2.Address
    Set myRng1 = Nothing			'
    Set myRng2 = Nothing
End Sub
